#!/usr/bin/perl
# scalar bien vo huong
$msg = "Hello world\n";
print $msg;
# array
@messege = ("Hello", "World", ":)");
print $messege[0],$messege[1], $messege[2], "\n";

# hash
%phoneBook = (
	"oanh"=>"043128345",
	"hien dau be"=>"043156668",
	"manh"=>"0431286996",
);

print "oanh's number is $phoneBook{'oanh'}\n",
		"hien dau be's number is $phoneBook{'hien dau be'}\n",
		"manh's number is $phoneBook{'manh'}\n";

# key co dau cach thi boc trong 'my  key'
print "oanh's number is $phoneBook{oanh}\n";
print "hien dau be's number is $phoneBook{'hien dau be'}\n";
#
$phoneBook{oanh} = ++$phoneBook{oanh};  # 46 cong roi tang
$phoneBook{oanh} = $phoneBook{oanh};  # 46 ? gan bang roi, cong cong nhung ko gan vao bien cu ?
print "oanh's number is $phoneBook{oanh}\n";
